//This example shows some intrinsic methods implemented by all objects.class ckNiceClass	public property name as string	public property count as integer	public sub ckNiceClass()		msgbox("Created new ckNiceClass")	end subend classsub main()   	dim test as ckNiceClass	test = new ckNiceClass	//we can get the data type	msgbox("Test is a " & test._DataType())	msgbox("Name is " & test._Name())	//we can check if an object implements a member	if test._hasMember("name") then		test.name = "Jose L. Cuevas"		msgbox("ok, I can use this property")	else		msgbox("upps, nope this object is a no-no...")	end ifend sub